﻿Imports System.Collections.Generic

Imports System

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports ContactFormBLL



'''<summary>
'''This is a test class for ContactRequestRepositoryTest and is intended
'''to contain all ContactRequestRepositoryTest Unit Tests
'''</summary>
<TestClass()> _
Public Class ContactRequestRepositoryTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Gets or sets the test context which provides
    '''information about and functionality for the current test run.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Additional test attributes"
    '
    'You can use the following additional attributes as you write your tests:
    '
    'Use ClassInitialize to run code before running the first test in the class
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup to run code after all tests in a class have run
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize to run code before running each test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup to run code after each test has run
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''A test for UnDeleteContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub UnDeleteContactRequestTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim vContactRequest As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.UnDeleteContactRequest(vContactRequest)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for GetContactRequests
    '''</summary>
    <TestMethod()> _
    Public Sub GetContactRequestsTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim expected As List(Of ContactRequest) = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As List(Of ContactRequest)
        actual = target.GetContactRequests
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for GetContactRequestById
    '''</summary>
    <TestMethod()> _
    Public Sub GetContactRequestByIdTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim contactRequestId As Integer = 0 ' TODO: Initialize to an appropriate value
        Dim expected As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As ContactRequest
        actual = target.GetContactRequestById(contactRequestId)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for DeleteContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub DeleteContactRequestTest1()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim vContactRequest As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.DeleteContactRequest(vContactRequest)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for DeleteContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub DeleteContactRequestTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim vContactRequestId As Integer = 0 ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.DeleteContactRequest(vContactRequestId)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for ChangeDeletedState
    '''</summary>
    <TestMethod(), _
     DeploymentItem("ContactFormBLL.dll")> _
    Public Sub ChangeDeletedStateTest()
        Dim target As ContactRequestRepository_Accessor = New ContactRequestRepository_Accessor ' TODO: Initialize to an appropriate value
        Dim vContactRequest As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim vState As Boolean = False ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.ChangeDeletedState(vContactRequest, vState)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for AddContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub AddContactRequestTest1()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim contactid As Integer = 0 ' TODO: Initialize to an appropriate value
        Dim name As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim business As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim address1 As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim address2 As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim city As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim state As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim zip As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim phone As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim email As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim request As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim subject As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim reponded As Boolean = False ' TODO: Initialize to an appropriate value
        Dim dateAdded As DateTime = New DateTime ' TODO: Initialize to an appropriate value
        Dim expected As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As ContactRequest
        actual = target.AddContactRequest(contactid, name, business, address1, address2, city, state, zip, phone, email, request, subject, reponded, dateAdded)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for AddContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub AddContactRequestTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository ' TODO: Initialize to an appropriate value
        Dim vContactRequest As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim expected As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As ContactRequest
        actual = target.AddContactRequest(vContactRequest)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for ContactRequestRepository Constructor
    '''</summary>
    <TestMethod()> _
    Public Sub ContactRequestRepositoryConstructorTest()
        Dim target As ContactRequestRepository = New ContactRequestRepository
        Assert.Inconclusive("TODO: Implement code to verify target")
    End Sub
End Class
